home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2002 #11 / Amiga Plus CD - 2002 - No. 11.iso / Tools / Development / Feelin021015 / Examples / 06.e < prev    next >
Encoding:
Text File  |  2002-10-28  |  1.8 KB  |  61 lines
  1. OPT PREPROCESS
  2.  
  3. MODULE 'feelin','libraries/feelin'
  4.  
  5. PROC main()
  6.    DEF c,w
  7.  
  8.    IF feelinbase := OpenLibrary('feelin.library',FV_VERSION)
  9.       c := ClientObject,
  10.          Child, w := WindowObject, FA_Window_Title, 'Feelin : Crawling',
  11.             Child, HGroup, FA_MinWidth,100,
  12.                Child, CrawlerObject, GaugeFrame, FA_Crawler_Delay,20, FA_ChainToCycle,FALSE, FA_MinHeight,40, FA_MinWidth, 40, FA_ID, 'Crawler',
  13.                   Child, VGroup, FA_Back,FI_Fill_HalfShadow, FA_Inner,[20,5,20,5]:CHAR,
  14.                      Child, TextObject, FA_FixedHeight,TRUE,FA_ChainToCycle,FALSE, FA_Text, {__Text}, End,
  15.  
  16.                      Child, CrawlerObject, GaugeFrame, FA_Crawler_Delay,40, FA_ChainToCycle,FALSE, FA_MinHeight,8*12, FA_MinWidth, 40,
  17.                         Child, VGroup, FA_FixedHeight,TRUE, FA_Back,FI_HalfShadow, FA_Inner,[20,5,20,5]:CHAR,
  18.                            Child, TextObject, FA_ChainToCycle,FALSE, FA_Text, {__Text}, End,
  19.  
  20.                            Child, CrawlerObject, GaugeFrame, FA_Crawler_Delay,60, FA_ChainToCycle,FALSE, FA_MinHeight,8*12, FA_MinWidth, 40,
  21.                               Child, VGroup, FA_FixedHeight,TRUE, FA_Back,FI_HalfShadow_Shadow, FA_Inner,[20,5,20,5]:CHAR,
  22.                                  Child, TextObject, FA_ChainToCycle,FALSE, FA_Text, {__Text}, End,
  23.                               End,
  24.                            End,
  25.                         End,
  26.                      End,
  27.                   End,
  28.                End,
  29.             End,
  30.          End,
  31.       End
  32.  
  33.       IF c
  34.          F_DoA(w,FM_Notify,[FA_Window_CloseRequest,TRUE,FV_Notify_Client,2,FM_Client_ReturnID,FV_Client_Quit])
  35.          F_Set(w,FA_Window_Open,TRUE)
  36.  
  37.          F_DoA(c,FM_Client_Run,NIL)
  38.  
  39.          F_DisposeObj(c)
  40.       ENDIF
  41.  
  42.       CloseLibrary(feelinbase)
  43.    ELSE
  44.       WriteF('Unable to open feelin.library\n')
  45.    ENDIF
  46. ENDPROC
  47.  
  48. __Text:
  49.    CHAR '`cWe live on a `bmontain`n.\n\n',
  50.  
  51.         'Right at the top.\n\n',
  52.  
  53.         'There is\n',
  54.         'a beautiful view\n',
  55.         'from the top\n',
  56.         'of the montain.\n\n',
  57.  
  58.         'Every morning\n',
  59.         'I walk toward the edge\n',
  60.         'and throw little things off',0
  61.